VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Begin VB.Form frmMainGame 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   7935
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   13575
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmMainGame.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   529
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   905
   StartUpPosition =   2  'CenterScreen
   Visible         =   0   'False
   Begin VB.PictureBox picTempInv 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   510
      Left            =   2640
      ScaleHeight     =   32
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   32
      TabIndex        =   4
      Top             =   5880
      Visible         =   0   'False
      Width           =   510
   End
   Begin VB.PictureBox picSpellDesc 
      Appearance      =   0  'Flat
      BackColor       =   &H00B5B5B5&
      ForeColor       =   &H80000008&
      Height          =   3540
      Left            =   2880
      ScaleHeight     =   234
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   177
      TabIndex        =   117
      Top             =   8040
      Visible         =   0   'False
      Width           =   2685
      Begin VB.Label lblSpellRange 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   840
         TabIndex        =   141
         Top             =   1800
         Width           =   315
      End
      Begin VB.Label lblSpellAoe 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   1440
         TabIndex        =   140
         Top             =   1560
         Width           =   315
      End
      Begin VB.Label lblSpellDamage 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   960
         TabIndex        =   139
         Top             =   1320
         Width           =   315
      End
      Begin VB.Label lblSpellCool 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   1080
         TabIndex        =   138
         Top             =   1080
         Width           =   315
      End
      Begin VB.Label lblSpellCast 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   1080
         TabIndex        =   137
         Top             =   840
         Width           =   315
      End
      Begin VB.Label lblSpellType 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   136
         Top             =   600
         Width           =   315
      End
      Begin VB.Label lblSpellName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   135
         Top             =   360
         Width           =   390
      End
      Begin VB.Label lblSpellClass 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Warrior"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   134
         Top             =   3120
         Width           =   645
      End
      Begin VB.Label lblSpellAccess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   840
         TabIndex        =   133
         Top             =   2880
         Width           =   105
      End
      Begin VB.Label lblSpellLevel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   132
         Top             =   2640
         Width           =   210
      End
      Begin VB.Label lblSpellMp 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   480
         TabIndex        =   131
         Top             =   2400
         Width           =   210
      End
      Begin VB.Label Label47 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Range:"
         Height          =   195
         Left            =   120
         TabIndex        =   130
         Top             =   1800
         Width           =   615
      End
      Begin VB.Label Label46 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Area of Effect:"
         Height          =   195
         Left            =   120
         TabIndex        =   129
         Top             =   1560
         Width           =   1245
      End
      Begin VB.Label lblSpellVital 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Damage:"
         Height          =   195
         Left            =   120
         TabIndex        =   128
         Top             =   1320
         Width           =   795
      End
      Begin VB.Label Label44 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cooldown:"
         Height          =   195
         Left            =   120
         TabIndex        =   127
         Top             =   1080
         Width           =   915
      End
      Begin VB.Label Label43 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cast Time:"
         Height          =   195
         Left            =   120
         TabIndex        =   126
         Top             =   840
         Width           =   945
      End
      Begin VB.Label Label42 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Requirements"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   125
         Top             =   2160
         Width           =   1350
      End
      Begin VB.Label Label41 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Class:"
         Height          =   195
         Left            =   120
         TabIndex        =   124
         Top             =   3120
         Width           =   540
      End
      Begin VB.Label Label40 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Access:"
         Height          =   195
         Left            =   120
         TabIndex        =   123
         Top             =   2880
         Width           =   660
      End
      Begin VB.Label Label39 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Level:"
         Height          =   195
         Left            =   120
         TabIndex        =   122
         Top             =   2640
         Width           =   525
      End
      Begin VB.Label Label38 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "MP:"
         Height          =   195
         Left            =   120
         TabIndex        =   121
         Top             =   2400
         Width           =   315
      End
      Begin VB.Label Label37 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Type:"
         Height          =   195
         Left            =   120
         TabIndex        =   120
         Top             =   600
         Width           =   495
      End
      Begin VB.Label Label36 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Name:"
         Height          =   195
         Left            =   120
         TabIndex        =   119
         Top             =   360
         Width           =   570
      End
      Begin VB.Label Label35 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Information"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   118
         Top             =   120
         Width           =   1170
      End
   End
   Begin VB.PictureBox picItemDesc 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   3060
      Left            =   120
      ScaleHeight     =   202
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   177
      TabIndex        =   6
      Top             =   8040
      Visible         =   0   'False
      Width           =   2685
      Begin VB.Label Label24 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Spr:"
         Height          =   195
         Left            =   1200
         TabIndex        =   52
         Top             =   2640
         Width           =   375
      End
      Begin VB.Label Label23 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Will:"
         Height          =   195
         Left            =   1200
         TabIndex        =   51
         Top             =   2400
         Width           =   375
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "End:"
         Height          =   195
         Left            =   1200
         TabIndex        =   50
         Top             =   2160
         Width           =   390
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Int:"
         Height          =   195
         Left            =   120
         TabIndex        =   49
         Top             =   2640
         Width           =   315
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Vit:"
         Height          =   195
         Left            =   120
         TabIndex        =   48
         Top             =   2400
         Width           =   300
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Str:"
         Height          =   195
         Left            =   120
         TabIndex        =   47
         Top             =   2160
         Width           =   330
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Information"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   46
         Top             =   120
         Width           =   1170
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Bonuses"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   45
         Top             =   1920
         Width           =   810
      End
      Begin VB.Label lblItemDescType 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   12
         Top             =   1560
         Width           =   315
      End
      Begin VB.Label lblItemDescPrice 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   11
         Top             =   1320
         Width           =   315
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cost:"
         Height          =   195
         Left            =   120
         TabIndex        =   43
         Top             =   1320
         Width           =   465
      End
      Begin VB.Label lblItemDescLevel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   10
         Top             =   1080
         Width           =   315
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Level:"
         Height          =   195
         Left            =   120
         TabIndex        =   42
         Top             =   1080
         Width           =   525
      End
      Begin VB.Label lblItemDescSpeed 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   840
         TabIndex        =   9
         Top             =   840
         Width           =   315
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Speed:"
         Height          =   195
         Left            =   120
         TabIndex        =   41
         Top             =   840
         Width           =   615
      End
      Begin VB.Label lblItemDescStats 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   600
         TabIndex        =   8
         Top             =   600
         Width           =   315
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Info:"
         Height          =   195
         Left            =   120
         TabIndex        =   40
         Top             =   600
         Width           =   420
      End
      Begin VB.Label lblItemDescName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "N/A"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   720
         TabIndex        =   7
         Top             =   360
         Width           =   390
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Name:"
         Height          =   195
         Left            =   120
         TabIndex        =   39
         Top             =   360
         Width           =   570
      End
      Begin VB.Label lblItemDescStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Index           =   5
         Left            =   1680
         TabIndex        =   18
         Top             =   2640
         Width           =   210
      End
      Begin VB.Label lblItemDescStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Index           =   4
         Left            =   480
         TabIndex        =   17
         Top             =   2640
         Width           =   210
      End
      Begin VB.Label lblItemDescStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Index           =   3
         Left            =   1680
         TabIndex        =   16
         Top             =   2400
         Width           =   210
      End
      Begin VB.Label lblItemDescStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Index           =   2
         Left            =   480
         TabIndex        =   15
         Top             =   2400
         Width           =   210
      End
      Begin VB.Label lblItemDescStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Index           =   1
         Left            =   1680
         TabIndex        =   14
         Top             =   2160
         Width           =   210
      End
      Begin VB.Label lblItemDescStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         ForeColor       =   &H001A2533&
         Height          =   195
         Index           =   0
         Left            =   480
         TabIndex        =   13
         Top             =   2160
         Width           =   210
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Type:"
         Height          =   195
         Left            =   120
         TabIndex        =   44
         Top             =   1560
         Width           =   495
      End
   End
   Begin VB.PictureBox picTrade 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00E0E0E0&
      ForeColor       =   &H80000008&
      Height          =   5160
      Left            =   3600
      ScaleHeight     =   342
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   406
      TabIndex        =   154
      Top             =   480
      Visible         =   0   'False
      Width           =   6120
      Begin VB.PictureBox picTheirTrade 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00B5B5B5&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   3915
         Left            =   3120
         ScaleHeight     =   259
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   189
         TabIndex        =   157
         Top             =   360
         Width           =   2865
      End
      Begin VB.PictureBox picYourTrade 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00B5B5B5&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   3915
         Left            =   120
         ScaleHeight     =   259
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   189
         TabIndex        =   156
         Top             =   360
         Width           =   2865
      End
      Begin VB.Label lblTradeStatus 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Height          =   255
         Left            =   120
         TabIndex        =   163
         Top             =   4560
         Width           =   5895
      End
      Begin VB.Label lblAcceptTrade 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Accept"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00008000&
         Height          =   255
         Left            =   2160
         TabIndex        =   162
         Top             =   4800
         Width           =   735
      End
      Begin VB.Label lblTheirWorth 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Total Worth: 0g"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   161
         Top             =   4320
         Width           =   2895
      End
      Begin VB.Label lblYourWorth 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Total Worth: 0g"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   160
         Top             =   4320
         Width           =   2895
      End
      Begin VB.Label lblTheirOffer 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "[Name]'s Offer"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   159
         Top             =   120
         Width           =   2895
      End
      Begin VB.Label lblYourOffer 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Your offer"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   158
         Top             =   120
         Width           =   2895
      End
      Begin VB.Label lblDeclineTrade 
         BackStyle       =   0  'Transparent
         Caption         =   "Decline"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   255
         Left            =   3240
         TabIndex        =   155
         Top             =   4800
         Width           =   855
      End
   End
   Begin VB.PictureBox picTempBank 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   510
      Left            =   3720
      ScaleHeight     =   32
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   32
      TabIndex        =   152
      Top             =   4920
      Visible         =   0   'False
      Width           =   510
   End
   Begin VB.PictureBox picBank 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00B5B5B5&
      ForeColor       =   &H80000008&
      Height          =   5520
      Left            =   3960
      ScaleHeight     =   366
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   366
      TabIndex        =   151
      Top             =   270
      Visible         =   0   'False
      Width           =   5520
      Begin VB.Label lblLeaveBank 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Leave Bank"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2040
         TabIndex        =   153
         Top             =   5160
         Width           =   1335
      End
   End
   Begin VB.PictureBox picAdmin 
      Appearance      =   0  'Flat
      BackColor       =   &H00B5B5B5&
      ForeColor       =   &H80000008&
      Height          =   7650
      Left            =   10560
      ScaleHeight     =   508
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   53
      Top             =   150
      Visible         =   0   'False
      Width           =   2865
      Begin VB.CommandButton cmdLevel 
         Caption         =   "Level Up"
         Height          =   255
         Left            =   240
         TabIndex        =   93
         Top             =   7200
         Width           =   2295
      End
      Begin VB.CommandButton cmdAAnim 
         Caption         =   "Animation"
         Height          =   255
         Left            =   1440
         TabIndex        =   92
         Top             =   4200
         Width           =   1095
      End
      Begin VB.CommandButton cmdAAccess 
         Caption         =   "Set Access"
         Height          =   255
         Left            =   240
         TabIndex        =   85
         Top             =   1800
         Width           =   2295
      End
      Begin VB.TextBox txtAAccess 
         Height          =   285
         Left            =   1440
         TabIndex        =   83
         Top             =   720
         Width           =   1095
      End
      Begin VB.TextBox txtASprite 
         Height          =   285
         Left            =   2160
         TabIndex        =   81
         Top             =   2280
         Width           =   375
      End
      Begin VB.CommandButton cmdARespawn 
         Caption         =   "Respawn"
         Height          =   255
         Left            =   1440
         TabIndex        =   80
         Top             =   5040
         Width           =   1095
      End
      Begin VB.CommandButton cmdASprite 
         Caption         =   "Set Sprite"
         Height          =   255
         Left            =   1440
         TabIndex        =   79
         Top             =   2640
         Width           =   1095
      End
      Begin VB.CommandButton cmdASpawn 
         Caption         =   "Spawn Item"
         Height          =   255
         Left            =   240
         TabIndex        =   78
         Top             =   6720
         Width           =   2295
      End
      Begin VB.HScrollBar scrlAAmount 
         Height          =   255
         Left            =   240
         Min             =   1
         TabIndex        =   77
         Top             =   6360
         Value           =   1
         Width           =   2295
      End
      Begin VB.HScrollBar scrlAItem 
         Height          =   255
         Left            =   240
         Min             =   1
         TabIndex        =   75
         Top             =   5760
         Value           =   1
         Width           =   2295
      End
      Begin VB.CommandButton cmdASpell 
         Caption         =   "Spell"
         Height          =   255
         Left            =   1440
         TabIndex        =   73
         Top             =   3840
         Width           =   1095
      End
      Begin VB.CommandButton cmdAShop 
         Caption         =   "Shop"
         Height          =   255
         Left            =   240
         TabIndex        =   72
         Top             =   4200
         Width           =   1095
      End
      Begin VB.CommandButton cmdAResource 
         Caption         =   "Resource"
         Height          =   255
         Left            =   1440
         TabIndex        =   71
         Top             =   3480
         Width           =   1095
      End
      Begin VB.CommandButton cmdANpc 
         Caption         =   "NPC"
         Height          =   255
         Left            =   240
         TabIndex        =   70
         Top             =   3840
         Width           =   1095
      End
      Begin VB.CommandButton cmdAMap 
         Caption         =   "Map"
         Height          =   255
         Left            =   1440
         TabIndex        =   69
         Top             =   3120
         Width           =   1095
      End
      Begin VB.CommandButton cmdAItem 
         Caption         =   "Item"
         Height          =   255
         Left            =   240
         TabIndex        =   67
         Top             =   3480
         Width           =   1095
      End
      Begin VB.CommandButton cmdADestroy 
         Caption         =   "Del Bans"
         Height          =   255
         Left            =   240
         TabIndex        =   66
         Top             =   5040
         Width           =   1095
      End
      Begin VB.CommandButton cmdAMapReport 
         Caption         =   "Map Report"
         Height          =   255
         Left            =   1440
         TabIndex        =   65
         Top             =   4680
         Width           =   1095
      End
      Begin VB.CommandButton cmdALoc 
         Caption         =   "Loc"
         Height          =   255
         Left            =   240
         TabIndex        =   64
         Top             =   4680
         Width           =   1095
      End
      Begin VB.CommandButton cmdAWarp 
         Caption         =   "Warp To"
         Height          =   255
         Left            =   240
         TabIndex        =   63
         Top             =   2640
         Width           =   1095
      End
      Begin VB.TextBox txtAMap 
         Height          =   285
         Left            =   960
         TabIndex        =   61
         Top             =   2280
         Width           =   375
      End
      Begin VB.CommandButton cmdAWarpMe2 
         Caption         =   "WarpMe2"
         Height          =   255
         Left            =   1440
         TabIndex        =   60
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CommandButton cmdAWarp2Me 
         Caption         =   "Warp2Me"
         Height          =   255
         Left            =   240
         TabIndex        =   59
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CommandButton cmdABan 
         Caption         =   "Ban"
         Height          =   255
         Left            =   1440
         TabIndex        =   58
         Top             =   1080
         Width           =   1095
      End
      Begin VB.CommandButton cmdAKick 
         Caption         =   "Kick"
         Height          =   255
         Left            =   240
         TabIndex        =   57
         Top             =   1080
         Width           =   1095
      End
      Begin VB.TextBox txtAName 
         Height          =   285
         Left            =   240
         TabIndex        =   55
         Top             =   720
         Width           =   1095
      End
      Begin VB.Line Line5 
         X1              =   16
         X2              =   168
         Y1              =   472
         Y2              =   472
      End
      Begin VB.Label Label33 
         BackStyle       =   0  'Transparent
         Caption         =   "Access:"
         Height          =   255
         Left            =   1440
         TabIndex        =   84
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label31 
         BackStyle       =   0  'Transparent
         Caption         =   "Sprite#:"
         Height          =   255
         Left            =   1440
         TabIndex        =   82
         Top             =   2280
         Width           =   1095
      End
      Begin VB.Label lblAAmount 
         BackStyle       =   0  'Transparent
         Caption         =   "Amount: 1"
         Height          =   255
         Left            =   240
         TabIndex        =   76
         Top             =   6120
         Width           =   2295
      End
      Begin VB.Label lblAItem 
         BackStyle       =   0  'Transparent
         Caption         =   "Spawn Item: None"
         Height          =   255
         Left            =   240
         TabIndex        =   74
         Top             =   5520
         Width           =   2295
      End
      Begin VB.Line Line4 
         X1              =   16
         X2              =   168
         Y1              =   360
         Y2              =   360
      End
      Begin VB.Line Line3 
         X1              =   16
         X2              =   168
         Y1              =   304
         Y2              =   304
      End
      Begin VB.Label Label32 
         BackStyle       =   0  'Transparent
         Caption         =   "Editors:"
         Height          =   255
         Left            =   240
         TabIndex        =   68
         Top             =   3120
         Width           =   2295
      End
      Begin VB.Line Line2 
         X1              =   16
         X2              =   168
         Y1              =   200
         Y2              =   200
      End
      Begin VB.Label Label30 
         BackStyle       =   0  'Transparent
         Caption         =   "Map#:"
         Height          =   255
         Left            =   240
         TabIndex        =   62
         Top             =   2280
         Width           =   1095
      End
      Begin VB.Line Line1 
         X1              =   16
         X2              =   168
         Y1              =   144
         Y2              =   144
      End
      Begin VB.Label Label29 
         BackStyle       =   0  'Transparent
         Caption         =   "Name:"
         Height          =   255
         Left            =   240
         TabIndex        =   56
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label28 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Admin Panel"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   0
         TabIndex        =   54
         Top             =   120
         Width           =   2865
      End
   End
   Begin VB.PictureBox picShop 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      ForeColor       =   &H80000008&
      Height          =   4335
      Left            =   4800
      ScaleHeight     =   287
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   279
      TabIndex        =   111
      Top             =   960
      Visible         =   0   'False
      Width           =   4215
      Begin VB.PictureBox picShopItems 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00B5B5B5&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   2595
         Left            =   360
         ScaleHeight     =   171
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   229
         TabIndex        =   112
         Top             =   600
         Width           =   3465
      End
      Begin VB.Label lblShopName 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Shop"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   116
         Top             =   120
         Width           =   3975
      End
      Begin VB.Label lblLeaveShop 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Leave"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   115
         Top             =   3840
         Width           =   1575
      End
      Begin VB.Label lblShopSell 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Sell Item"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   114
         Top             =   3600
         Width           =   1575
      End
      Begin VB.Label lblShopBuy 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Buy Item"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   113
         Top             =   3360
         Width           =   1575
      End
   End
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H00B5B5B5&
      ForeColor       =   &H80000008&
      Height          =   2025
      Left            =   150
      Picture         =   "frmMainGame.frx":3332
      ScaleHeight     =   133
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   101
      Top             =   150
      Width           =   2865
      Begin VB.Label lblHP 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "100/100"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   6.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   180
         TabIndex        =   104
         Top             =   195
         Width           =   630
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Gold:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   165
         TabIndex        =   110
         Top             =   1230
         Width           =   495
      End
      Begin VB.Label lblGold 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   765
         TabIndex        =   109
         Top             =   1230
         Width           =   105
      End
      Begin VB.Label Label26 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "FPS:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   165
         TabIndex        =   108
         Top             =   1470
         Width           =   420
      End
      Begin VB.Label Label27 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Ping:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   165
         TabIndex        =   107
         Top             =   1710
         Width           =   480
      End
      Begin VB.Label lblFPS 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   765
         TabIndex        =   106
         Top             =   1470
         Width           =   105
      End
      Begin VB.Label lblPing 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         ForeColor       =   &H001A2533&
         Height          =   195
         Left            =   765
         TabIndex        =   105
         Top             =   1710
         Width           =   105
      End
      Begin VB.Image imgHPBar 
         Height          =   210
         Left            =   165
         Picture         =   "frmMainGame.frx":CEB4
         Top             =   180
         Width           =   2535
      End
      Begin VB.Label lblMP 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "100/100"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   6.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   180
         TabIndex        =   103
         Top             =   495
         Width           =   630
      End
      Begin VB.Label lblEXP 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "100/100"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   6.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   180
         TabIndex        =   102
         Top             =   795
         Width           =   630
      End
      Begin VB.Image imgEXPBar 
         Height          =   210
         Left            =   165
         Picture         =   "frmMainGame.frx":EABE
         Top             =   780
         Width           =   2535
      End
      Begin VB.Image imgMPBar 
         Height          =   210
         Left            =   165
         Picture         =   "frmMainGame.frx":106C8
         Top             =   480
         Width           =   2535
      End
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H00B5B5B5&
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   150
      ScaleHeight     =   94
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   100
      Top             =   6360
      Width           =   2865
      Begin VB.Image imgTrade 
         Height          =   480
         Left            =   600
         Picture         =   "frmMainGame.frx":122D2
         Top             =   720
         Width           =   510
      End
      Begin VB.Image imgExit 
         Height          =   480
         Left            =   1800
         Picture         =   "frmMainGame.frx":13014
         Top             =   720
         Width           =   510
      End
      Begin VB.Image imgOptions 
         Height          =   480
         Left            =   1170
         Picture         =   "frmMainGame.frx":13D56
         Top             =   720
         Width           =   510
      End
      Begin VB.Image imgChar 
         Height          =   480
         Left            =   1800
         Picture         =   "frmMainGame.frx":14A98
         Top             =   120
         Width           =   510
      End
      Begin VB.Image imgSkills 
         Height          =   480
         Left            =   1170
         Picture         =   "frmMainGame.frx":157DA
         Top             =   120
         Width           =   510
      End
      Begin VB.Image imgInv 
         Height          =   480
         Left            =   600
         Picture         =   "frmMainGame.frx":1651C
         Top             =   120
         Width           =   510
      End
   End
   Begin VB.PictureBox picCurrency 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H80000008&
      Height          =   1815
      Left            =   6120
      ScaleHeight     =   1785
      ScaleWidth      =   7140
      TabIndex        =   95
      Top             =   8520
      Visible         =   0   'False
      Width           =   7170
      Begin VB.TextBox txtCurrency 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   2160
         TabIndex        =   97
         Top             =   720
         Width           =   2775
      End
      Begin VB.Label lblCurrencyCancel 
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "Cancel (Esc)"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   2160
         TabIndex        =   99
         Top             =   1320
         Width           =   2775
      End
      Begin VB.Label lblCurrencyOk 
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "Okay (Enter)"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   2160
         TabIndex        =   98
         Top             =   1080
         Width           =   2775
      End
      Begin VB.Label lblCurrency 
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "How many do you want to drop?"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   1680
         TabIndex        =   96
         Top             =   360
         Width           =   3855
      End
   End
   Begin RichTextLib.RichTextBox txtChat 
      Height          =   1440
      Left            =   3180
      TabIndex        =   1
      Top             =   6360
      Width           =   7170
      _ExtentX        =   12647
      _ExtentY        =   2540
      _Version        =   393217
      BackColor       =   0
      ScrollBars      =   2
      Appearance      =   0
      TextRTF         =   $"frmMainGame.frx":1725E
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.PictureBox picScreen 
      Appearance      =   0  'Flat
      BackColor       =   &H00B5B5B5&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   5760
      Left            =   3165
      ScaleHeight     =   384
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   150
      Visible         =   0   'False
      Width           =   7200
      Begin MSWinsockLib.Winsock Socket 
         Left            =   0
         Top             =   0
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   393216
      End
   End
   Begin VB.TextBox txtMyChat 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   3180
      TabIndex        =   2
      Top             =   5985
      Width           =   7170
   End
   Begin VB.PictureBox picInventory 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   3915
      Left            =   150
      ScaleHeight     =   259
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   3
      Top             =   2325
      Width           =   2865
   End
   Begin VB.PictureBox picSpells 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   3915
      Left            =   150
      ScaleHeight     =   259
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   94
      Top             =   2325
      Visible         =   0   'False
      Width           =   2865
   End
   Begin VB.PictureBox picCharacter 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   3915
      Left            =   150
      ScaleHeight     =   259
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   5
      Top             =   2325
      Visible         =   0   'False
      Width           =   2865
      Begin VB.Label lblTrainStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "+"
         Height          =   195
         Index           =   6
         Left            =   2280
         TabIndex        =   91
         Top             =   2040
         Width           =   135
      End
      Begin VB.Label lblTrainStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "+"
         Height          =   195
         Index           =   5
         Left            =   960
         TabIndex        =   90
         Top             =   2040
         Width           =   135
      End
      Begin VB.Label lblTrainStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "+"
         Height          =   195
         Index           =   4
         Left            =   2280
         TabIndex        =   89
         Top             =   1680
         Width           =   135
      End
      Begin VB.Label lblTrainStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "+"
         Height          =   195
         Index           =   3
         Left            =   960
         TabIndex        =   88
         Top             =   1680
         Width           =   135
      End
      Begin VB.Label lblTrainStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "+"
         Height          =   195
         Index           =   2
         Left            =   2280
         TabIndex        =   87
         Top             =   1320
         Width           =   135
      End
      Begin VB.Label lblTrainStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "+"
         Height          =   195
         Index           =   1
         Left            =   960
         TabIndex        =   86
         Top             =   1320
         Width           =   135
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Int:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   38
         Top             =   2040
         Width           =   345
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Vit:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   37
         Top             =   1680
         Width           =   315
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Spr:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1320
         TabIndex        =   36
         Top             =   2040
         Width           =   390
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Will:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1320
         TabIndex        =   35
         Top             =   1680
         Width           =   420
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "End:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1320
         TabIndex        =   34
         Top             =   1320
         Width           =   420
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Pnts:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1320
         TabIndex        =   33
         Top             =   960
         Width           =   480
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Str:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   32
         Top             =   1320
         Width           =   345
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Lvl:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   31
         Top             =   960
         Width           =   345
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Guild:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   30
         Top             =   600
         Width           =   555
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Name:"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   29
         Top             =   240
         Width           =   615
      End
      Begin VB.Label lblCharPoints 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   195
         Left            =   1920
         TabIndex        =   28
         Top             =   960
         Width           =   315
      End
      Begin VB.Label lblCharStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Index           =   6
         Left            =   1920
         TabIndex        =   27
         Top             =   2040
         Width           =   210
      End
      Begin VB.Label lblCharStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Index           =   5
         Left            =   600
         TabIndex        =   26
         Top             =   2040
         Width           =   210
      End
      Begin VB.Label lblCharStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Index           =   4
         Left            =   1920
         TabIndex        =   25
         Top             =   1680
         Width           =   210
      End
      Begin VB.Label lblCharStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Index           =   3
         Left            =   600
         TabIndex        =   24
         Top             =   1680
         Width           =   210
      End
      Begin VB.Label lblCharStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Index           =   2
         Left            =   1920
         TabIndex        =   23
         Top             =   1320
         Width           =   210
      End
      Begin VB.Label lblCharStat 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Index           =   1
         Left            =   600
         TabIndex        =   22
         Top             =   1320
         Width           =   210
      End
      Begin VB.Label lblCharLevel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "99"
         Height          =   195
         Left            =   600
         TabIndex        =   21
         Top             =   960
         Width           =   210
      End
      Begin VB.Label lblCharGuild 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "None"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   20
         Top             =   600
         Width           =   495
      End
      Begin VB.Label lblCharName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Empty"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   840
         TabIndex        =   19
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.PictureBox picOptions 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00B5B5B5&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   3915
      Left            =   150
      ScaleHeight     =   259
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   142
      Top             =   2325
      Visible         =   0   'False
      Width           =   2865
      Begin VB.PictureBox Picture4 
         BackColor       =   &H00B5B5B5&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   240
         ScaleHeight     =   255
         ScaleWidth      =   1935
         TabIndex        =   148
         Top             =   1080
         Width           =   1935
         Begin VB.OptionButton optSOn 
            Appearance      =   0  'Flat
            BackColor       =   &H00B5B5B5&
            Caption         =   "On"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   0
            TabIndex        =   150
            Top             =   0
            Width           =   735
         End
         Begin VB.OptionButton optSOff 
            Appearance      =   0  'Flat
            BackColor       =   &H00B5B5B5&
            Caption         =   "Off"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   720
            TabIndex        =   149
            Top             =   0
            Width           =   735
         End
      End
      Begin VB.PictureBox Picture3 
         BackColor       =   &H00B5B5B5&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   240
         ScaleHeight     =   255
         ScaleWidth      =   1935
         TabIndex        =   145
         Top             =   480
         Width           =   1935
         Begin VB.OptionButton optMOff 
            Appearance      =   0  'Flat
            BackColor       =   &H00B5B5B5&
            Caption         =   "Off"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   720
            TabIndex        =   147
            Top             =   0
            Width           =   735
         End
         Begin VB.OptionButton optMOn 
            Appearance      =   0  'Flat
            BackColor       =   &H00B5B5B5&
            Caption         =   "On"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   0
            TabIndex        =   146
            Top             =   0
            Width           =   735
         End
      End
      Begin VB.Label Label49 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Sound"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   240
         TabIndex        =   144
         Top             =   840
         Width           =   600
      End
      Begin VB.Label Label48 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Music"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   240
         TabIndex        =   143
         Top             =   240
         Width           =   540
      End
   End
End
Attribute VB_Name = "frmMainGame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' ************
' ** Events **
' ************
Private MoveForm As Boolean
Private MouseX As Long
Private MouseY As Long
Private PresentX As Long
Private PresentY As Long

Private Sub cmdAAnim_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestEditAnimation
End Sub

Private Sub cmdLevel_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestLevelUp
End Sub

Private Sub Form_Load()
    picAdmin.Left = 10
    picCurrency.Left = txtMyChat.Left
    picCurrency.Top = txtMyChat.Top
    Me.width = 10545
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
imgExit_Click
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    picItemDesc.Visible = False
End Sub

Private Sub imgTrade_Click()
    AddText "Click on the player you wish to trade with.", White
    TradeTimer = GetTickCount + 10000 ' 10 seconds to click on the player
    TradeRequest = True
End Sub

Private Sub Label34_Click()

End Sub

Private Sub lblAcceptTrade_Click()
    AcceptTrade
End Sub

Private Sub lblCurrencyCancel_Click()
    picCurrency.Visible = False
    txtCurrency.text = vbNullString
    tmpCurrencyItem = 0
    CurrencyMenu = 0 ' clear
End Sub

Private Sub lblDeclineTrade_Click()
    DeclineTrade
End Sub

Private Sub lblLeaveBank_Click()
    CloseBank
End Sub

Private Sub lblLeaveShop_Click()
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteLong CCloseShop
    SendData Buffer.ToArray()
    Set Buffer = Nothing
    picShop.Visible = False
    InShop = 0
    ShopAction = 0
End Sub

Private Sub lblCurrencyOk_Click()
    If IsNumeric(txtCurrency.text) Then
        Select Case CurrencyMenu
            Case 1 ' drop item
                SendDropItem tmpCurrencyItem, Val(txtCurrency.text)
            Case 2 ' deposit item
                DepositItem tmpCurrencyItem, Val(txtCurrency.text)
            Case 3 ' withdraw item
                WithdrawItem tmpCurrencyItem, Val(txtCurrency.text)
        End Select
    End If
    
    picCurrency.Visible = False
    tmpCurrencyItem = 0
    txtCurrency.text = vbNullString
    CurrencyMenu = 0 ' clear
End Sub

Private Sub lblOptions_Click()
End Sub

Private Sub lblShopBuy_Click()
    If ShopAction = 1 Then Exit Sub
    ShopAction = 1 ' buying an item
    AddText "Click on the item in the shop you wish to buy.", White
End Sub

Private Sub lblShopSell_Click()
    If ShopAction = 2 Then Exit Sub
    ShopAction = 2 ' selling an item
    AddText "Double-click on the item in your inventory you wish to sell.", White
End Sub

Private Sub lblTrainStat_Click(Index As Integer)
    If GetPlayerPOINTS(MyIndex) = 0 Then Exit Sub
    SendTrainStat Index
End Sub

Private Sub optMOff_Click()
    Options.Music = 0
    ' stop music playing
    StopMidi
    ' save to config.ini
    SaveOptions
End Sub

Private Sub optMOn_Click()
    Options.Music = 1
    ' start music playing
    PlayMidi Trim$(Map.Music)
    ' save to config.ini
    SaveOptions
End Sub

Private Sub optSOff_Click()
    Options.Sound = 0
    ' save to config.ini
    SaveOptions
End Sub

Private Sub optSOn_Click()
    Options.Sound = 1
    ' save to config.ini
    SaveOptions
End Sub

Private Sub picScreen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If InMapEditor Then
        Call MapEditorMouseDown(Button, X, Y, False)
    Else
        ' left click
        If Button = vbLeftButton Then
            ' if we're in the middle of choose the trade target or not
            If Not TradeRequest Then
                ' targetting
                Call PlayerSearch(CurX, CurY)
            Else
                ' trading
                Call SendTradeRequest(CurX, CurY)
            End If
        ' right click
        ElseIf Button = vbRightButton Then
            If ShiftDown Then
                ' admin warp if we're pressing shift and right clicking
                If GetPlayerAccess(MyIndex) >= 2 Then AdminWarp CurX, CurY
            End If
        End If
    End If

    Call SetFocusOnChat
End Sub

Private Sub picScreen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CurX = TileView.Left + ((X + Camera.Left) \ PIC_X)
    CurY = TileView.Top + ((Y + Camera.Top) \ PIC_Y)

    If InMapEditor Then
        frmEditor_Map.shpLoc.Visible = False

        If Button = vbLeftButton Or Button = vbRightButton Then
            Call MapEditorMouseDown(Button, X, Y)
        End If
    End If
    
    picItemDesc.Visible = False

End Sub

Private Function IsShopItem(ByVal X As Single, ByVal Y As Single) As Long
    Dim tempRec As RECT
    Dim i As Long
    IsShopItem = 0

    For i = 1 To MAX_TRADES

        If Shop(InShop).TradeItem(i).Item > 0 And Shop(InShop).TradeItem(i).Item <= MAX_ITEMS Then
            With tempRec
                .Top = .Top = ShopTop + ((ShopOffsetY + 32) * ((i - 1) \ ShopColumns))
                .Bottom = .Top + PIC_Y
                .Left = ShopLeft + ((ShopOffsetX + 32) * (((i - 1) Mod ShopColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= tempRec.Left And X <= tempRec.Right Then
                If Y >= tempRec.Top And Y <= tempRec.Bottom Then
                    IsShopItem = i
                    Exit Function
                End If
            End If
        End If
    Next
End Function

Private Sub picShopItems_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim shopItem As Long
    shopItem = IsShopItem(X, Y)
    
    If shopItem > 0 Then
        Select Case ShopAction
            Case 0 ' no action, give cost
                With Shop(InShop).TradeItem(shopItem)
                    AddText "You can buy this item for " & .CostValue & " " & Trim$(Item(.CostItem).Name) & ".", White
                End With
            Case 1 ' buy item
                ' buy item code
                BuyItem shopItem
        End Select
    End If
End Sub

Private Sub picShopItems_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim shopslot As Long
Dim x2 As Long, y2 As Long

    shopslot = IsShopItem(X, Y)

    If shopslot <> 0 Then
        x2 = X + picShop.Left + picShopItems.Left + 3
        y2 = Y + picShop.Top + picShopItems.Left + 19
        UpdateDescWindow Shop(InShop).TradeItem(shopslot).Item, Shop(InShop).TradeItem(shopslot).ItemValue, x2, y2
        LastItemDesc = Shop(InShop).TradeItem(shopslot).Item
        Exit Sub
    End If
    
    picItemDesc.Visible = False
    LastItemDesc = 0
End Sub

Private Sub picSpellDesc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    picSpellDesc.Visible = False
End Sub

Private Sub picSpells_DblClick()
    Dim spellnum As Long
    
    spellnum = IsPlayerSpell(SpellX, SpellY)

    If spellnum <> 0 Then
        Call CastSpell(spellnum)
        Exit Sub
    End If
End Sub

Private Sub picSpells_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim spellnum As Long
    
    If Button = 2 Then ' right click
        spellnum = IsPlayerSpell(SpellX, SpellY)

        If spellnum <> 0 Then
            Call ForgetSpell(spellnum)
            Exit Sub
        End If
    End If
End Sub

Private Sub picSpells_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim spellslot As Long
Dim x2 As Long, y2 As Long

    SpellX = X
    SpellY = Y
    
    spellslot = IsPlayerSpell(X, Y)
    
    If spellslot <> 0 Then
        x2 = X + picSpells.Left + 2
        y2 = Y + picSpells.Top + 2
        UpdateSpellWindow PlayerSpells(spellslot), x2, y2
        LastSpellDesc = PlayerSpells(spellslot)
        Exit Sub
    End If
    
    picSpellDesc.Visible = False
    LastSpellDesc = 0
End Sub

Private Sub picYourTrade_DblClick()
    Dim TradeNum As Long
    
    TradeNum = IsTradeItem(TradeX, TradeY, True)

    If TradeNum <> 0 Then
        UntradeItem TradeNum
    End If
End Sub

Private Sub picYourTrade_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim TradeNum As Long
    
    TradeX = X
    TradeY = Y
    
    TradeNum = IsTradeItem(X, Y, True)
    
    If TradeNum <> 0 Then
        X = X + picTrade.Left + picYourTrade.Left + 4
        Y = Y + picTrade.Top + picYourTrade.Top + 4
        UpdateDescWindow GetPlayerInvItemNum(MyIndex, TradeYourOffer(TradeNum).Num), TradeYourOffer(TradeNum).Value, X, Y
        LastItemDesc = GetPlayerInvItemNum(MyIndex, TradeYourOffer(TradeNum).Num) ' set it so you don't re-set values
        Exit Sub
    End If
    
    picItemDesc.Visible = False
    LastItemDesc = 0 ' no item was last loaded
End Sub

Private Sub picTheirTrade_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim TradeNum As Long
    
    TradeNum = IsTradeItem(X, Y, False)
    
    If TradeNum <> 0 Then
        X = X + picTrade.Left + picTheirTrade.Left + 4
        Y = Y + picTrade.Top + picTheirTrade.Top + 4
        UpdateDescWindow TradeTheirOffer(TradeNum).Num, TradeTheirOffer(TradeNum).Value, X, Y
        LastItemDesc = TradeTheirOffer(TradeNum).Num ' set it so you don't re-set values
        Exit Sub
    End If
    
    picItemDesc.Visible = False
    LastItemDesc = 0 ' no item was last loaded
End Sub

Private Sub scrlAAmount_Change()
    lblAAmount.Caption = "Amount: " & scrlAAmount.Value
End Sub

Private Sub scrlAItem_Change()
    lblAItem.Caption = "Item: " & Trim$(Item(scrlAItem.Value).Name)
    If Item(scrlAItem.Value).Type = ITEM_TYPE_CURRENCY Then
        scrlAAmount.Enabled = True
        Exit Sub
    End If
    scrlAAmount.Enabled = False
End Sub

' Winsock event
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)

    If IsConnected Then
        Call IncomingData(bytesTotal)
    End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Call HandleKeypresses(KeyAscii)

    ' prevents textbox on error ding sound
    If KeyAscii = vbKeyReturn Or KeyAscii = vbKeyEscape Then
        KeyAscii = 0
    End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
        Case vbKeyF1
            If Player(MyIndex).Access > 0 Then
                picAdmin.Visible = Not picAdmin.Visible
            End If
    End Select

End Sub

Private Sub txtMyChat_Change()
    MyText = txtMyChat
End Sub

Private Sub txtChat_GotFocus()
    SetFocusOnChat
End Sub

' ***************
' ** Inventory **
' ***************
Private Sub lblUseItem_Click()
    Call UseItem
End Sub

Private Sub picInventory_DblClick()
    Dim InvNum As Long
    Dim Value As Long
    Dim multiplier As Double
    Dim i As Long
    
    DragInvSlotNum = 0
    InvNum = IsInvItem(InvX, InvY)

    If InvNum <> 0 Then
    
        ' are we in a shop?
        If InShop > 0 Then
            Select Case ShopAction
                Case 0 ' nothing, give value
                    multiplier = Shop(InShop).BuyRate / 100
                    Value = Item(GetPlayerInvItemNum(MyIndex, InvNum)).Price * multiplier
                    If Value > 0 Then
                        AddText "You can sell this item for " & Value & " gold.", White
                    Else
                        AddText "The shop does not want this item.", BrightRed
                    End If
                Case 2 ' 2 = sell
                    SellItem InvNum
            End Select
            
            Exit Sub
        End If
        
        ' in bank?
        If InBank Then
            If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
                CurrencyMenu = 2 ' deposit
                lblCurrency.Caption = "How many do you want to deposit?"
                tmpCurrencyItem = InvNum
                txtCurrency.text = vbNullString
                picCurrency.Visible = True
                txtCurrency.SetFocus
                Exit Sub
            End If
                
            Call DepositItem(InvNum, 0)
            Exit Sub
        End If
        
        ' in trade?
        If InTrade > 0 Then
            ' exit out if we're offering that item
            For i = 1 To MAX_INV
                If TradeYourOffer(i).Num = InvNum Then
                    Exit Sub
                End If
            Next
            If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
                ' currency shit here brah
                Exit Sub
            End If
            
            Call TradeItem(InvNum, 0)
            Exit Sub
        End If
        
        ' use item if not doing anything else
        If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_NONE Then Exit Sub
        Call SendUseItem(InvNum)
        Exit Sub
    End If

End Sub

Private Function IsEqItem(ByVal X As Single, ByVal Y As Single) As Long
    Dim tempRec As RECT
    Dim i As Long
    IsEqItem = 0

    For i = 1 To Equipment.Equipment_Count - 1

        If GetPlayerEquipment(MyIndex, i) > 0 And GetPlayerEquipment(MyIndex, i) <= MAX_ITEMS Then

            With tempRec
                .Top = EqTop
                .Bottom = .Top + PIC_Y
                .Left = EqLeft + ((EqOffsetX + 32) * (((i - 1) Mod EqColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= tempRec.Left And X <= tempRec.Right Then
                If Y >= tempRec.Top And Y <= tempRec.Bottom Then
                    IsEqItem = i
                    Exit Function
                End If
            End If
        End If

    Next

End Function

Private Function IsInvItem(ByVal X As Single, ByVal Y As Single) As Long
    Dim tempRec As RECT
    Dim i As Long
    IsInvItem = 0

    For i = 1 To MAX_INV

        If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i) <= MAX_ITEMS Then

            With tempRec
                .Top = InvTop + ((InvOffsetY + 32) * ((i - 1) \ InvColumns))
                .Bottom = .Top + PIC_Y
                .Left = InvLeft + ((InvOffsetX + 32) * (((i - 1) Mod InvColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= tempRec.Left And X <= tempRec.Right Then
                If Y >= tempRec.Top And Y <= tempRec.Bottom Then
                    IsInvItem = i
                    Exit Function
                End If
            End If
        End If

    Next

End Function

Private Function IsPlayerSpell(ByVal X As Single, ByVal Y As Single) As Long
    Dim tempRec As RECT
    Dim i As Long
    
    IsPlayerSpell = 0

    For i = 1 To MAX_PLAYER_SPELLS

        If PlayerSpells(i) > 0 And PlayerSpells(i) <= MAX_PLAYER_SPELLS Then

            With tempRec
                .Top = SpellTop + ((SpellOffsetY + 32) * ((i - 1) \ SpellColumns))
                .Bottom = .Top + PIC_Y
                .Left = SpellLeft + ((SpellOffsetX + 32) * (((i - 1) Mod SpellColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= tempRec.Left And X <= tempRec.Right Then
                If Y >= tempRec.Top And Y <= tempRec.Bottom Then
                    IsPlayerSpell = i
                    Exit Function
                End If
            End If
        End If

    Next

End Function

Private Function IsTradeItem(ByVal X As Single, ByVal Y As Single, ByVal Yours As Boolean) As Long
    Dim tempRec As RECT
    Dim i As Long
    Dim itemnum As Long
    
    IsTradeItem = 0

    For i = 1 To MAX_INV
    
        If Yours Then
            itemnum = GetPlayerInvItemNum(MyIndex, TradeYourOffer(i).Num)
        Else
            itemnum = TradeTheirOffer(i).Num
        End If

        If itemnum > 0 And itemnum <= MAX_ITEMS Then

            With tempRec
                .Top = InvTop + ((InvOffsetY + 32) * ((i - 1) \ InvColumns))
                .Bottom = .Top + PIC_Y
                .Left = InvLeft + ((InvOffsetX + 32) * (((i - 1) Mod InvColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= tempRec.Left And X <= tempRec.Right Then
                If Y >= tempRec.Top And Y <= tempRec.Bottom Then
                    IsTradeItem = i
                    Exit Function
                End If
            End If
        End If

    Next

End Function

Private Sub picInventory_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim InvNum As Long
    InvNum = IsInvItem(X, Y)

    If Button = 1 Then
        If InvNum <> 0 Then
            If InTrade > 0 Then Exit Sub
            If InBank Or InShop Then Exit Sub
            DragInvSlotNum = InvNum
        End If

    ElseIf Button = 2 Then
        If Not InBank And Not InShop And Not InTrade > 0 Then
            If InvNum <> 0 Then
                If Item(GetPlayerInvItemNum(MyIndex, InvNum)).Type = ITEM_TYPE_CURRENCY Then
                    If GetPlayerInvItemValue(MyIndex, InvNum) > 0 Then
                        CurrencyMenu = 1 ' drop
                        lblCurrency.Caption = "How many do you want to drop?"
                        tmpCurrencyItem = InvNum
                        txtCurrency.text = vbNullString
                        picCurrency.Visible = True
                        txtCurrency.SetFocus
                    End If
                Else
                    Call SendDropItem(InvNum, 0)
                End If
            End If
        End If
    End If

    SetFocusOnChat
End Sub

Private Sub picInventory_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim InvNum As Long
    Dim i As Long
    
    InvX = X
    InvY = Y

    If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(CLng(X) + picInventory.Left, CLng(Y) + picInventory.Top)
    Else
        InvNum = IsInvItem(X, Y)

        If InvNum <> 0 Then
            ' exit out if we're offering that item
            For i = 1 To MAX_INV
                If TradeYourOffer(i).Num = InvNum Then
                    Exit Sub
                End If
            Next
            X = X + picInventory.Left + 2
            Y = Y + picInventory.Top + 2
            UpdateDescWindow GetPlayerInvItemNum(MyIndex, InvNum), GetPlayerInvItemValue(MyIndex, InvNum), X, Y
            LastItemDesc = GetPlayerInvItemNum(MyIndex, InvNum) ' set it so you don't re-set values
            Exit Sub
        End If
    End If

    picItemDesc.Visible = False
    LastItemDesc = 0 ' no item was last loaded
End Sub

Private Sub picInventory_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i As Long
    Dim rec_pos As RECT
    
    If InTrade > 0 Then Exit Sub
    If InBank Or InShop Then Exit Sub

    If DragInvSlotNum > 0 Then

        For i = 1 To MAX_INV

            With rec_pos
                .Top = InvTop + ((InvOffsetY + 32) * ((i - 1) \ InvColumns))
                .Bottom = .Top + PIC_Y
                .Left = InvLeft + ((InvOffsetX + 32) * (((i - 1) Mod InvColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= rec_pos.Left And X <= rec_pos.Right Then
                If Y >= rec_pos.Top And Y <= rec_pos.Bottom Then '
                    If DragInvSlotNum <> i Then
                        SendChangeInvSlots DragInvSlotNum, i
                        Exit For
                    End If
                End If
            End If

        Next

    End If

    DragInvSlotNum = 0
    picTempInv.Visible = False
End Sub

Private Sub picItemDesc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    picItemDesc.Visible = False
End Sub

' *****************
' ** Char window **
' *****************

Private Sub picCharacter_Click()
    Dim EqNum As Long
    EqNum = IsEqItem(EqX, EqY)

    If EqNum <> 0 Then
        SendUnequip EqNum
    End If

End Sub

Private Sub picCharacter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim EqNum As Long
    Dim x2 As Long, y2 As Long
    EqX = X
    EqY = Y
    EqNum = IsEqItem(X, Y)

    If EqNum <> 0 Then
        y2 = Y + picCharacter.Top - frmMainGame.picItemDesc.height - 2
        x2 = X + picCharacter.Left + 2
        UpdateDescWindow GetPlayerEquipment(MyIndex, EqNum), 0, x2, y2
        LastItemDesc = GetPlayerEquipment(MyIndex, EqNum) ' set it so you don't re-set values
        Exit Sub
    End If

    picItemDesc.Visible = False
    LastItemDesc = 0 ' no item was last loaded
End Sub

' *****************
' ** GUI Buttons **
' *****************

Private Sub imgInv_Click()
    picInventory.Visible = True
    picCharacter.Visible = False
    picSpells.Visible = False
    picOptions.Visible = False
    BltInventory
End Sub

Private Sub imgSkills_Click()
    Dim Buffer As clsBuffer

    Set Buffer = New clsBuffer
    Buffer.WriteLong CSpells
    SendData Buffer.ToArray()
    Set Buffer = Nothing
    picSpells.Visible = True
    picInventory.Visible = False
    picCharacter.Visible = False
    picOptions.Visible = False

End Sub

Private Sub imgChar_Click()
    SendRequestPlayerData
    picCharacter.Visible = True
    picInventory.Visible = False
    picSpells.Visible = False
    picOptions.Visible = False
    BltEquipment
End Sub

Private Sub imgOptions_Click()
    picCharacter.Visible = False
    picInventory.Visible = False
    picSpells.Visible = False
    picOptions.Visible = True
End Sub

Private Sub imgExit_Click()
    Dim Buffer As clsBuffer
    Dim i As Long
    
    isLogging = True
    InGame = False
    
    Set Buffer = New clsBuffer
    Buffer.WriteLong CQuit
    SendData Buffer.ToArray()
    Set Buffer = Nothing
    
    Call DestroyTCP
    
    ' destroy the animations loaded
    For i = 1 To MAX_BYTE
        ClearAnimInstance (i)
    Next
    
    ' destroy temp values
    DragInvSlotNum = 0
    InvX = 0
    InvY = 0
    EqX = 0
    EqY = 0
    SpellX = 0
    SpellY = 0
    LastItemDesc = 0
    MyIndex = 0
    InventoryItemSelected = 0
    SpellBuffer = 0
    SpellBufferTimer = 0
    tmpCurrencyItem = 0
    
    Unload frmEditor_Animation
    Unload frmEditor_Item
    Unload frmEditor_Map
    Unload frmEditor_MapProperties
    Unload frmEditor_NPC
    Unload frmEditor_Resource
    Unload frmEditor_Shop
    Unload frmEditor_Spell
    
    txtChat.text = vbNullString
End Sub

' ****************
' ** Admin Menu **
' ****************

Private Sub cmdALoc_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If
    
    BLoc = Not BLoc
End Sub

Private Sub cmdAMap_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If
    
    SendRequestEditMap
End Sub

Private Sub cmdAWarp2Me_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    If Len(Trim$(txtAName.text)) < 1 Then
        Exit Sub
    End If

    If IsNumeric(Trim$(txtAName.text)) Then
        Exit Sub
    End If

    WarpToMe Trim$(txtAName.text)
End Sub

Private Sub cmdAWarpMe2_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    If Len(Trim$(txtAName.text)) < 1 Then
        Exit Sub
    End If

    If IsNumeric(Trim$(txtAName.text)) Then
        Exit Sub
    End If

    WarpMeTo Trim$(txtAName.text)
End Sub

Private Sub cmdAWarp_Click()
Dim n As Long

    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    If Len(Trim$(txtAMap.text)) < 1 Then
        Exit Sub
    End If

    If Not IsNumeric(Trim$(txtAMap.text)) Then
        Exit Sub
    End If

    n = CLng(Trim$(txtAMap.text))

    ' Check to make sure its a valid map #
    If n > 0 And n <= MAX_MAPS Then
        Call WarpTo(n)
    Else
        Call AddText("Invalid map number.", Red)
    End If
End Sub

Private Sub cmdASprite_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    If Len(Trim$(txtASprite.text)) < 1 Then
        Exit Sub
    End If

    If Not IsNumeric(Trim$(txtASprite.text)) Then
        Exit Sub
    End If

    SendSetSprite CLng(Trim$(txtASprite.text))
End Sub

Private Sub cmdAMapReport_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    AddText "Need to change the packet to byte array, Robin.", BrightRed
    'SendData CMapReport & END_CHAR
End Sub

Private Sub cmdARespawn_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If
    
    SendMapRespawn
End Sub

Private Sub cmdABan_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    If Len(Trim$(txtAName.text)) < 1 Then
        Exit Sub
    End If

    SendBan Trim$(txtAName.text)
End Sub

Private Sub cmdAItem_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestEditItem
End Sub

Private Sub cmdANpc_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestEditNpc
End Sub

Private Sub cmdAResource_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestEditResource
End Sub

Private Sub cmdAShop_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestEditShop
End Sub

Private Sub cmdASpell_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendRequestEditSpell
End Sub

Private Sub cmdAAccess_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    If Len(Trim$(txtAName.text)) < 2 Then
        Exit Sub
    End If

    If IsNumeric(Trim$(txtAName.text)) Or Not IsNumeric(Trim$(txtAAccess.text)) Then
        Exit Sub
    End If

    SendSetAccess Trim$(txtAName.text), CLng(Trim$(txtAAccess.text))
End Sub

Private Sub cmdADestroy_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If

    SendBanDestroy
End Sub

Private Sub cmdASpawn_Click()
    If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then
        AddText "You need to be a high enough staff member to do this!", AlertColor
        Exit Sub
    End If
    
    SendSpawnItem scrlAItem.Value, scrlAAmount.Value
End Sub

' bank
Private Sub picbank_DblClick()
Dim bankNum As Long

    DragBankSlotNum = 0

    bankNum = IsBankItem(BankX, BankY)
    If bankNum <> 0 Then
         If GetBankItemNum(bankNum) = ITEM_TYPE_NONE Then Exit Sub
         
             If Item(GetBankItemNum(bankNum)).Type = ITEM_TYPE_CURRENCY Then
                CurrencyMenu = 3 ' withdraw
                lblCurrency.Caption = "How many do you want to withdraw?"
                tmpCurrencyItem = bankNum
                txtCurrency.text = vbNullString
                picCurrency.Visible = True
                txtCurrency.SetFocus
                Exit Sub
            End If
            
         WithdrawItem bankNum, 0
         Exit Sub
    End If
End Sub

Private Sub picbank_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim bankNum As Long
                        
    bankNum = IsBankItem(X, Y)
    
    If bankNum <> 0 Then
        
        If Button = 1 Then
            DragBankSlotNum = bankNum
        End If
    End If
End Sub

Private Sub picbank_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
Dim rec_pos As RECT
' TODO : Add sub to change bankslots client side first so there's no delay in switching
    If DragBankSlotNum > 0 Then
        For i = 1 To MAX_BANK
            With rec_pos
                .Top = BankTop + ((BankOffsetY + 32) * ((i - 1) \ BankColumns))
                .Bottom = .Top + PIC_Y
                .Left = BankLeft + ((BankOffsetX + 32) * (((i - 1) Mod BankColumns)))
                .Right = .Left + PIC_X
            End With

            If X >= rec_pos.Left And X <= rec_pos.Right Then
                If Y >= rec_pos.Top And Y <= rec_pos.Bottom Then
                    If DragBankSlotNum <> i Then
                        ChangeBankSlots DragBankSlotNum, i
                        Exit For
                    End If
                End If
            End If
        Next
    End If

    DragBankSlotNum = 0
    picTempBank.Visible = False
End Sub

Private Sub picbank_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim bankNum As Long, itemnum As Long, ItemType As Long
Dim x2 As Long, y2 As Long

    BankX = X
    BankY = Y
    
    If DragBankSlotNum > 0 Then
        Call BltBankItem(X + picBank.Left, Y + picBank.Top)
    Else
        bankNum = IsBankItem(X, Y)
        
        If bankNum <> 0 Then
            
            x2 = X + picBank.Left + 2
            y2 = Y + picBank.Top + 2
            UpdateDescWindow Bank.Item(bankNum).Num, Bank.Item(bankNum).Value, x2, y2
            Exit Sub
        End If
    End If
    
    frmMainGame.picItemDesc.Visible = False
    LastBankDesc = 0
End Sub

Private Function IsBankItem(ByVal X As Single, ByVal Y As Single) As Long
Dim tempRec As RECT
Dim i As Long

    IsBankItem = 0
    
    For i = 1 To MAX_BANK
        If GetBankItemNum(i) > 0 And GetBankItemNum(i) <= MAX_ITEMS Then
        
            With tempRec
                .Top = BankTop + ((BankOffsetY + 32) * ((i - 1) \ BankColumns))
                .Bottom = .Top + PIC_Y
                .Left = BankLeft + ((BankOffsetX + 32) * (((i - 1) Mod BankColumns)))
                .Right = .Left + PIC_X
            End With
            
            If X >= tempRec.Left And X <= tempRec.Right Then
                If Y >= tempRec.Top And Y <= tempRec.Bottom Then
                    
                    IsBankItem = i
                    Exit Function
                End If
            End If
        End If
    Next
End Function
